home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d12 / v9n07.arc / KILLER2.BAS < prev    next >
BASIC Source File  |  1990-03-16  |  357b  |  18 lines
  1. killer2.bas
  2.  
  3.  
  4.  
  5. 100 DEFINT A-Z
  6. 110 FILESPEC$=ENVIRON$("VICTIM")
  7. 120 PRINT "Obliterating ";FILESPEC$
  8. 130 OPEN"R",1,FILESPEC$,128
  9. 140 SZ=INT(LOF(1)/128)+1
  10. 150 FIELD# 1,128 AS ZERO$
  11. 160 LSET ZERO$=STRING$(128,0)
  12. 170 FOR RN=SZ TO 1 STEP -1
  13. 180   PUT 1,RN
  14. 190   LOCATE 2,1:PRINT USING"#,###";RN;
  15. 200 NEXT RN
  16. 210 CLOSE :KILL FILESPEC$
  17. 220 SYSTEM
  18.